
********************************************************************************
********************************************************************************
* REPLIKATIONSMATERIAL FÜR
* Rudolph, L., Bränuninger, T., & Menzner, J.
* Das Potential offener Listen für die Wahl von Frauen zum Bundestag. Ergebnisse eines Survey-Experiments .
* Zur Veröffentlichung akzeptiert in: Politische Vierteljahresschrift. 
*
* Version 1.0, geschrieben von Jan Menzner am 2022-05-25  
********************************************************************************
********************************************************************************

********************************************************************************
********************************************************************************
* Diese Do-File repliziert the Ergebnisse präsentiert in:

/*
Tabelle 1: Anteil der Befürworter*innen von staatlichen Gleichstellungsmaßnahmen für Frauen

Abbildung A.3: Wahrgenommene Positionen der Parteien zu staatlichen Gleichstellungsmaßnahmen

*/

/*
Benötigte Datensätze:
- ZA6838_w15_sA_v5-0-0.dta (doi:10.4232/1.13783)
*/


********************************************************************************
********************************************************************************

********************************************************************************
********************************************************************************
* Set Up

* Diese Packages müssen eventuell vor dem Durchlaufen lassen installiert werden:
/*
ssc install grstyle, replace    // grstyle Package von Ben Jann
ssc install colrspace, replace  // colrspace Package von Ben Jann
*/

********************************************************************************
********************************************************************************
* Daten importieren 

use Daten/ZA6838_w15_sA_v5-0-0.dta, clear

* Relevante variablen umbenennen
rename kp15_2280 gender
rename kp15_2090a partyID
rename kp15_1160 stategend_sal
rename kp15_1590 stategend_self

* Variablen rekodieren
recode gender (-99 -95=.) // Geschlecht
recode partyID (-99/-1=.) // Party ID
recode stategend_sal (-99/-1=.) // Ensuring gender equality important
recode stategend_self (-99/-1=.) // Own position on measures 
recode kp15_1591* (-99/-1=.) // Wahrgenommene Partei-Positionen bzgl. Gleichstellungsmaßnahmen

* Variablen labeln
label variable kp15_1591a "CDU"
label variable kp15_1591b "CSU"
label variable kp15_1591c "SPD"
label variable kp15_1591d "FDP"
label variable kp15_1591e "B'90/Grünen"
label variable kp15_1591f "Linke"
label variable kp15_1591i "AfD"
label variable gender "Geschlecht"


* Neue Variablen erstellen
* Für wie viele, für die Gleichstellung salient ist, sind für Gleichstellung?
gen stategend_prosal = stategend_self
recode stategend_prosal (1/3 = 1) (4/7 = 0)
replace stategend_prosal = 0 if stategend_sal > 3 
replace stategend_prosal = . if stategend_sal == .

* 
*_______________________________________________________________________________
********************************************************************************
* Tabellen im Hauptteil des Papers
*_______________________________________________________________________________

********************************************************************************
* Tabelle 1: Anteil der Befürworter*innen von staatlichen Gleichstellungsmaßnahmen für Frauen
* Repliziert nur die Resultate, nicht das Tabellen-Format. Dieses ist händisch in Overleaf erstellt worden.
*______

* Prozente: Salient und Zustimmend, Nach Partei ID und Geschlecht
table party gender, statistic(mean stategend_prosal ) nformat(%9.2f) 
* Anzahl: Salient und Zustimmend, Nach Partei ID und Geschlecht
table party gender, statistic(n stategend_prosal) nformat(%9.2f) 

*_______________________________________________________________________________
********************************************************************************
* Abbildungen im Appendix
*______________

********************************************************************************
* Abbildung A.3: Wahrgenommene Positionen der Parteien zu staatlichen Gleichstellungsmaßnahmen
*______



* Verteilung der wahrgenommenen Partei-Positionen plotten
grstyle init
grstyle set plain, horizontal grid
grstyle set legend, nobox
grstyle set color economist

graph box kp15_1591f kp15_1591e kp15_1591c kp15_1591a kp15_1591b kp15_1591d kp15_1591i, ///
over(gender, total) legend(row(1) symxsize(*0.7)) ///
ylabel(1 "1" 3 "3" 5 "5" 7 "7") ///
ytitle("Wahrgenommene Parteiposition:" "Staatliche Gleichstellungsmaßnahmen") ///
yscale(titlegap(*15)) ///
/// Mittelwerte-Labels hinzufügen ///
text(2.69 70.5 "2.7", size(vsmall)) ///
text(2.68 75 "2.7", size(vsmall)) ///
text(3.15 79.5 "3.2", size(vsmall)) ///
text(3.92 84 "3.9", size(vsmall)) ///
text(4.19 88.5 "4.2", size(vsmall)) ///
text(4.10 93.25 "4.1", size(vsmall)) ///
text(5.27 97.75 "5.3", size(vsmall)) ///
///
text(2.6 36.5 "2.6", size(vsmall)) ///
text(2.6 41 "2.6", size(vsmall)) ///
text(3.1 45.5 "3.1", size(vsmall)) ///
text(4.0 50 "4.0", size(vsmall)) ///
text(4.3 54.5 "4.3", size(vsmall)) ///
text(4.2 59 "4.2", size(vsmall)) ///
text(5.4 63.6 "5.4", size(vsmall)) ///
///
text(2.8 2.5 "2.8", size(vsmall)) ///
text(2.8 7 "2.8", size(vsmall)) ///
text(3.3 11.5 "3.3", size(vsmall)) ///
text(3.8 16 "3.8", size(vsmall)) ///
text(4.1 20.5 "4.1", size(vsmall)) ///
text(4.0 25 "4.0", size(vsmall)) ///
text(5.1 29.6 "5.1", size(vsmall)) 

* Plot bearbeiten
*** X-Achsen Labels
gr_edit .grpaxis.edit_tick 3 84.015 `"Gesamt"', tickset(major)
*** Symbole Outlier
gr_edit .plotregion1.outsides[367].style.editstyle marker(symbol(smtriangle)) editcopy
gr_edit .plotregion1.outsides[1837].style.editstyle marker(symbol(smtriangle)) editcopy

*Speichern 
graph export Abbildungen/Abb_A3.eps, replace

********************************************************************************
********************************************************************************
* ENDE
********************************************************************************
********************************************************************************
********************************************************************************
********************************************************************************
********************************************************************************
